﻿Imports System.Runtime.Remoting.Channels.Ipc
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting



Public Class Service1

    Protected Sub OnStart(ByVal args() As String)
        ' Add code here to start your service. This method should set things
        ' in motion so your service can do its work.
        Dim ipcCh As IpcChannel
        ipcCh = New IpcChannel("ManagedPassFiltService")
        ChannelServices.RegisterChannel(ipcCh, False)
        RemotingConfiguration.RegisterWellKnownServiceType(GetType(ICommunicationService), "Remote", WellKnownObjectMode.Singleton)

    End Sub



    Protected Sub OnStop()
        ' Add code here to perform any tear-down necessary to stop your service.
    End Sub

    Public Sub New()

    End Sub
End Class
